home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 4 / developer source - volume 4.iso / parad / jan94 / vkfig02b.gif < prev    next >
Graphics Interchange Format  |  1996-07-02  |  25KB  |  447x353  |  4-bit (15 colors)
Labels: text | screenshot | display | software | number
OCR: TESTDLG :: #Script1#run method run(var eventinfo Event) var sDate, eDate Date retUal, qString String fInfo FormOpenInfo Forn endvar qString = "Query DBOXFLDS.DB | Start date | End date | Check <01/01/01 | Check EndQuery" fInfo.queryString - qString FInfo.nane - "DATERNG" if not f.open(fInfo) then msgStop("Error","Can't open dialog box\n" + errorMessage()) return endIf sleep() F.wait() sDate = f. Start_date eDate = f.End_date F.close() sDate.view("Start date") eDate.view("End date") endMethod Es Line: 28 Col: 3